The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwrh14.dir/00158_Script_158

Text File | 1994-11-15 | 2KB | 81 lines

on startMovie
  cursor 4
  global nowFrame, currMM
  set currMM = "FLWWT"

  preLoadCast 1,6

  puppetSprite 21, TRUE
  puppetSprite 22, TRUE
  puppetSprite 23, TRUE
  puppetSprite 11, TRUE
  set the immediate of sprite 23 to TRUE
  set the stretch of sprite 23 to FALSE
end startMovie

on stepMovie
  global nowFrame,currFrame
  if nowFrame  <> currFrame then
    seeAlsoList
    set currFrame = nowFrame
  end if
end stepMovie

on saveLocals
  global lastMovie, lastFrame, nowFrame
  set lastFrame = nowFrame
  set lastMovie = "FLWRH14"
end saveLocals

on buttonState
  global FrankNav, bFlag

  if rollover(11) then
    set the castNum of sprite 11 to 1082
    if the mouseDown then
      set the castNum of sprite 11 to 1083
    end if
  else
    set the castNum of sprite 11 to 1081
  end if

  if rollover(6) then
    rollCheck
  else
    set pos = 0
    cursor -1
  end if
  if (the mouseV > 400) or (bFlag = TRUE) then
    doState
  end if
end buttonState

on rollCheck
  global right, left, forw, pos
  if the mouseH>=446 and the mouseH<=537 and the mouseV>180 and the mouseV<420 then
    if right = 1 then
      set pos = 3
      cursor [1065,1066]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  else if the mouseH>=217 and the mouseH<=308 and the mouseV>180 and the mouseV<420 then
    if left = 1 then
      set pos = 1
      cursor [1069,1070]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  else if the mouseH>=307 and the mouseH<=447 and the mouseV>180 and the mousev<=420 then
    if forw = 1 then
      set pos = 2
      cursor [1067,1068]
    else
      set pos = 0
      cursor [1071,1072]
    end if
  end if
end rollCheck